From 6fb6ab11e162b9ad21fd1c358dd67f3c0378700c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 14 May 1993 03:57:45 +0000 Subject: [PATCH] (vc-revert-buffer1): Don't assume that compilation-error-list is a list; it might be t. --- lisp/vc.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/vc.el b/lisp/vc.el index 2b7df01e99a..7f17c3cb007 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -289,7 +289,7 @@ the master name of FILE; this is appended to an optional list of FLAGS." compilation-old-error-list compilation-error-list)) (buffer-error-marked-p nil)) - (while (and errors + (while (and (consp errors) (not buffer-error-marked-p)) (and (markerp (cdr (car errors))) (eq buffer -- 2.30.2